Top 10k strings from 16-48 Magazine - Issue 10 (1984)(16-48 Tape Magazine).tap in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Magazines / Sinclair ZX Spectrum - Magazines - [TAP] (TOSEC-v2007-01-01) /
Back to the directory listing
7 STOP THE TAPE
6 "10")="r":
4 RUN THE TAPE
3 z$="11cc0202"+
3 LET THE TAPE RUN
3 JUMP=JUMP-
3 ?8888888888888888888888888888888
3 ;"Press any key";
3 ;"Press any key to continue":
3 ;"Jimpix#7
3 ;" Number duplicated ":
3
3
3
2 z$="11080202CHAPTER 1":
2 z$="10030203STOP THE TAPE":
2 z$="06070103MACHINE CODE TUTOR":
2 z$="0310020216/48":
2 n,o;" ":
2 a$="SPACE":
2 a$="PLASTIC":
2 a$="DOME":
2 Y(GT,PL,N9),X(GT,PL,N9);" PLAYER ";PL;" "
2 RETURN TO MAIN MENU"
2 PRESS ANY KEY
2 ANY KEY TO CONTINUE
2 A$="METAL":
2 ;"tutor1.2":
2 ;"tutor1.1":
2 ;"Your time was ";t;" seconds."
2 ;"Start the tape":
2 ;"Press 'c' to continue."
2 ;"Keep the tape running":
2 ;" AVAILABLE :
2 ;" ":
2 -f;" PRESS ANY KEY TO START ":
2 (buffer+14
2 (buffer+13
2 (buffer+12
2 (buffer+11
2 ((prog+168
2 "Advent#7"
2 "8",i;"Press a key for Help;"'':
2 "24";"STONES";
2 "23";"PLAYER 2"
2 "15";Q*N6;
2 "14")=" ":
2 Update Board
2 Initialise
2 Explanation
2 End of Game
2 16/48 Magazine Ltd. *6\$:
2 ";
2
1 z$="ll130201AND ":
1 z$="ll020302GREEN MEN":
1 z$="ll000402DUNGEONS":
1 z$="18010202THEN READ ON....":
1 z$="15030204Stop the tape":
1 z$="15000203L loads part 2.":
1 z$="14110202PART 2":
1 z$="14110202PART 1":
1 z$="14010102KEEP HAVING TO START AGAIN??":
1 z$="11070103The Long Way Home":
1 z$="11000102STILL CAN'T FIND THAT TRANS-MAT?":
1 z$="1004030310000001":
1 z$="10040203RUN THE TAPE":
1 z$="10030203RUN THE TAPE":
1 z$="10020203RUN THE TAPE":
1 z$="10000203LET THE TAPE RUN":
1 z$="09020305Satellite":
1 z$="09020203STOP THE TAPE":
1 z$="09020102WHAT IS MACHINE CODE?":
1 z$="08000202STUCK IN A CELL?":
1 z$="07cc0202"+
1 z$="07020202B":
1 z$="05000203R to read again,":
1 z$="04200102SCHEMATIC":
1 z$="04000404Way home":
1 z$="03cc0202"+
1 z$="03020202A":
1 z$="01200102SPECTRUM":
1 z$="01060102WHAT'S IT ALL ABOUT?":
1 z$="01040303The long":
1 z$="00140201OF":
1 z$="00040102WHAT'S IT ALL ABOUT?":
1 z$="00040102ONE & TWO BYTE OPERATIONS":
1 z$="00020102WHAT SHOULD I ALREADY KNOW?":
1 z$,z$,z$,y$,y$,y$,z$,z$,z$
1 z$,y$,z$,y$,z$,y$,z$,y$,z$
1 z$,y$,z$,y$,y$,y$,z$,y$,z$
1 z$,y$,y$,y$,z$,y$,y$,y$,z$
1 z$,y$,y$,y$,y$,y$,y$,y$,z$
1 y$;"the following;":
1 y$;"nothing to help you.":
1 y$;"a room beneath you":
1 y$;"a notice."'"It says ~Museum closed due to the emergency~":
1 y$,y$,y$,y$,z$,y$,y$,y$,y$
1 xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
1 v$="Very good"
1 v$="Very bad"
1 v$="Pathetic"
1 v$="Not bad"
1 v$="Fantastic"
1 udg
1 type GOTO GO
1 tutor1.2
1 tutor1.1
1 set up graphics
1 print numbers
1 p$="1122334455667722744":
1 n$(n)=n$(n-1
1 m$="wev'e decided to reveal all<again, in the hope that we<might stem the flood of<requests for help.":
1 m$="You should<LIGHT A BRANCH<so that you can see":
1 m$="You need a flint, some straw,<twigs and branches to light a<fire.<You can only use most of them<once !":
1 m$="You must<SHOW THE CHIEF HOW TO LIGHT A<FIRE<before he will be willing<to part with anything.":
1 m$="You drop the ":
1 m$="You can get some light by<following clue 2":
1 m$="You are taking too long.<It has got dark.<You can get rid of wolves<(temporarily) if you<LIGHT A FIRE.":
1 m$="You are not meant to.<Its just natures way of saying<that you are too slow.":
1 m$="What is wrong with knocking on<the door ?":
1 m$="Well,after 3 more chapters<of":
1 m$="Try<KILL GRYPHON WITH BARE HANDS !":
1 m$="Try the cave with the pool in.":
1 m$="Oh alright,<Drop the spade<after you use it.":
1 m$="Just teasing.<You will have to wait<another few months for help.< ":
1 m$="It is much easier to wait on<the platform and then<GET ON THE TRAIN":
1 m$="It is an enchanted castle !<You sometimes need to go past<the fireplace a few times<before you can see it.":
1 m$="If you have discovered any<solutions, interesting short<cuts or bugs in any adventure<game then drop us a line at<16/48. We will send you `5 if<we publish your contribution.<Send us your problems and we<will do our best to save you<from death, destruction and<an over-heated Spectrum.":
1 m$="GET OFF THE TRAIN at the first<stop":
1 m$="For help press;":
1 m$="Ernest Keith Moat from<Sheffield sent us a note via<MICRONET 800 to say that in<PHARAOHS TOMB by Phipps,<the way through the maze is<S.W.E.S.S to Death Dungeon<or S.W.E.S.N. to Death row.<(I think I'd rather stay at<home)<A fiver is winging your way<Keith.":
1 k$="567890"
1 k$(n)=q$(k)
1 i,o;" ":
1 header 0
1 h(n)=h(n-1
1 g h i j k l"
1 f ";Q;" ";
1 estart ACTION KEYS : 5(
1 e ";Q;" ";
1 details of your game so that you can RUN the game again from that point."
1 d$(n)="Spectrum":
1 colour
1 code=32000
1 cli)+("up "
1 cli)+("down "
1 clI)+("South "
1 clI)+("East "
1 ccode X
1 cards
1 buffer=32021
1 boxes }
1 b*Iv++~O++~
1 b ";Q;" ";
1 alt "+a$+" "
1 a$="WEST":
1 a$="SOUTH":
1 a$="NORTH":
1 a$="METAL":
1 a$="MEMORY":
1 a$="HELP":
1 a$="EAST":
1 a$="DOWN":
1 a$="DOWN"):
1 a$="CLOSE"
1 a$="BUGGY":
1 a -> fg -> lm -> rs -> xN
1 a ";Q;" ";
1 ^xxxxxxxxxyxxxxxxxxxxxxxxxxxxxxxx111111111yxxxxxxxxxxxxxxxxxxxxxx111111111XXXXXXXXXXXXXXXXXXXXXXX111111111XXXXXXXXXXXXXXXXppppppp111111111XXXXXXXXXXXXXXXXphppppp111111111XXXXXXXXXXXXXXXXpppppPP111111111XXXXXXXXXXXXXXXXpppppPP111111111XXXXXXXXXXXXXXXXpppppPP111111111XXXXXXXXXXXXXXXXppppppp111111111XXXXXXXXXXXXXXXXppppppp111111111XXX\\XXXXXXXXXXXppppppp111111111XXXXXXXXXXXXXXXXXXXXXXp111111111XXXPPPPPPPPPPPPPPPPPPPP111111111
1 ^;;8888888888888888888888888888;;
1 ^888888?????8?8888888888888888888
1 ^88888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888889
1 ^8888888888888888888888888888888888888888888888888888888888888888888 001100
1 ]MAGNETIC MAGAZINES 83:H\
1 Z$="150908053":
1 Z$="150008053":
1 Z$="090908052":
1 Z$="090008052":
1 Z$="030908051":
1 Z$="030008051":
1 YOU HAVE WON A
1 YOU HAVE SCORED OVER 10000
1 Y(GT,PA1,PA2),X(GT,PA1,PA2)-1
1 Y$="You see ":
1 Y$;"a ";C$
1 XOR means EXCLUSIVE OR. Each BIT will be set if either A OR B, but NOT BOTH had that bit set.":
1 Well done player
1 WELL DONE!
1 WARI-I
1 WARI
1 VERDICT: ";v$
1 USING THE NEW COLOURS
1 UP TO 336 NEW COLOURS !!!
1 Try decrementing past 0 to see negative numbers.":
1 This can be used to multiply by two.":
1 TIME NAME VERDICT
1 THIS HAS DEFINED A RECTANGLE TO BE FILLED IN-THIS WILL BE DONE USING THE CURRENT PAPER INK AND
1 THE 3 GRAPHICS USED
1 TEMP=B(C(GT,PL),N7-N):
1 T(PL)=T(PL)-N1:
1 T(PL)=T(PL)+TEMP:
1 T(P)=T(P)+N1:
1 T(N4)>T(WINNER)
1 T(N4)=T(N1))
1 T(N4)=Q*N6
1 T(N4)-B(N4,N7)=N0
1 T(N3)>T(WINNER)
1 T(N3)=T(N1)
1 T(N3)=Q*N6:
1 T(N3)-B(N3,N7)=N0
1 T(N2)>T(WINNER)
1 T(N2)=Q*N6:
1 T(N2)-B(N2,N7)=N0
1 T(N1)=Q*N6:
1 T(N1)-B(N1,N7)=N0
1 T(C(GT,PL))=T(C(GT,PL))-TEMP:
1 T$="gggg m4s ":
1 SUBTRACT B from A and put the result in A. If the result is negative then the carry flag will be set.":
1 START THE TAPE
1 START TAPE
1 SHIFT RIGHT moves each BIT one place to the right with BIT 0 going to the carry and BIT 7 is reset. This is effectively dividing by two.":
1 SHIFT LEFT moves each BIT one place to the left. BIT 7 goes into the carry flag and BIT 0 is reset.
1 SET UP Z$ TO HOLD 5 NUMBERS AS FOLLOWS (LEADING ZEROS MUST BE SUPPLIED)
1 SCORE
1 Rewind & play tape (
1 Replay tape to
1 ROTATE RIGHT moves each BIT one place to the right with BIT 0 moving around to BIT 7 and also branching to the carry flag. (There is an alternative with the carry flag moving to BIT 7.)":
1 ROTATE LEFT moves each BIT one place to the left with BIT 7 moving round to BIT 0 and also branching into the carry flag. (There is an alternative with the carry flag moving to bit 0.)":
1 RETURN TO MAIN MENU
1 Program BARRY THORNE
1 Press any key to return...
1 Press any key to continue...Y5
1 Press any key to continue.
1 Press "B" to see the board or "C" to continueZ
1 Player ";WINNER;" Wins - Another Game ?
1 P`W`V`U`T`S`R`Q`P@W@V@U@T@S@R@Q@P W V U T S R Q P
1 PRINT WOULD USE GRAPHIC 1 TO PRINT A RECTANGLE 8 COLUMNS WIDE 5 LINES DEEP STARTING AT LINE 3 COLUMN 0
1 PPPPPPPPPPPPPPPPPPPP111111111
1 POINTS AND CAN NOW GO FOR
1 PLAYER 2";
1 PL=PL+N1-GT*(PL=GT):
1 PA1=P:
1 PA1=C(GT,PL):
1 P=P+N1-GT*(P=GT)
1 OR is a logical operation. EACH BIT will be set if either A OR Bhad that bit set.":
1 OPERATIONS
1 NX,N6;"
1 NX,N2;"STONES";
1 NOTHING FOR A PAIR
1 NEGATE subtracts the byte from 0, or if you prefer, from 256. Negating anything but zero will set the carry flag.":
1 NB. if it doesn't
1 N=N+(T$(M)="g"):
1 N9,N6;" W A R I ";
1 N6,N3;Q*N6;"
1 N3,N1;"PLAYER 1
1 N3+N2*X,NX;
1 N2,N0;" PLAYER 1";
1 N1;" Press ( ";P$(PL);" ) ":
1 N1,N7;" "
1 Mr. Ace The coolMacho SupermanFred r
1 Manual p217) has allthe necessary background."
1 Magnetic Magazines Ltd.*6\$:
1 MAGNETIC MAGAZINES :
1 M$="You take the ":
1 M$="You need to dissolve the lock<with gryphon's blood.":
1 M$="You must<USE THE STRAW TO BURN THE ROPE":
1 M$="So that you can turn it to<face the transmitter":
1 Long Way#7
1 LOAD NEXT PROGRAM
1 LINES 190-8130 CAN BE DELETED LEAVING A SKELETON FOR YOUR OWN USE
1 LINES 100-180 SET UP
1 LET Z$="llccwwddg":
1 KXXXXXXXXXXXXXXXXXXXXXXXXK
1 JUMP=JUMP+
1 Incrementing 255 will produce 0.(255 is often treated as -1.)":
1 In order to break out of the game to load side 2 of 16/48, Press CAPSHIFT 6 ,Type LOAD"""" "'"ENTER, and play side 2.
1 IT WORKS SIMILARLY TO THE BIGPRINT ROUTINES
1 IT COULD STILL BE A BIG NIGHT
1 INCREMENT A means add 1.
1 IF YOU PLAY YOUR CARDS RIGHT!
1 Home#7
1 H`O`N`M`L`K`J`I`H@O@N@M@L@K@J@I@H O N M L K J I H
1 HOW MUCH DO YOU WANT TO BET?
1 HIGHER OR LOWER? d
1 HALT KEY PROCESSING
1 Graphics JIM DANN
1 GZAP m
1 GAMBLE POINTS(MINIMUM 50)AND GUESS WHETHER EACH TURN OF A CARD WILL BE HIGHER OR LOWER THAN THE PRECEDING CARD. SCORE MORE THAN 10000 POINTS AND YOU MAY GO FOR THE CAR.
1 FFFFFFFFFFFFG
1 EXTEND DATA BUS
1 EXTEND ADDRESS BUS
1 END OF MAIN LOOP - ALL NEW COLOURS HAVE NOW BEEN DISPLAYED
1 E.G. LET Z$="030008051":
1 DRAW MEMORY
1 DRAW DATA BUS
1 DRAW CURRENT STATE
1 DRAW CONTROL BUS
1 DRAW ADDRESS BUS
1 DO YOU WANT TO CHANGE IT?
1 DISPLAY NEW COLOURS
1 DISPLAY GRAPHICS
1 DELAY LOOP AND TEST FOR ACTION KEY DEPRESSION
1 DECREMENT means subtract 1.
1 DATA FOR COLOUR INDICARORS
1 Cg>w2}\>H2~\
1 Cg>s2}\>H2~\
1 Cg>o2}\>H2~\
1 Cg>k2}\>H2~\
1 CXXXXXXXX[[XXXXXXXXXXXXXXXXXXXXC_XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
1 COWBOY 4
1 COPYING RESULT TO A
1 COMPLIMENT means changing over all the BITS. ALL 0's become 1'sand vice versa.
1 COMPLIMENT followed by incrementhas the same effect as NEGATE.":
1 COMPARE B means subtract B from A, but then leave A as it was and just leave the carry and zero flags to show whether the result was negative or zero.":
1 COLOUR MASTER
1 COLOUR CARD
1 Bit 7 6 5 4 3 2 1 0
1 BASE COLOURS
1 B><B <<<|~<
1 B.C.THORNE APRIL 1983*S\
1 B(PL,N7)=B(PL,N7)+TEMP+N1:
1 B(PL,N)=N0:
1 B(PL,M)=N0
1 B(PL,M)=B(PL,M)-N1:
1 B(P ,N)=B(P ,N)+N1:
1 B(N,N7)=N0:
1 B(N,M)=Q:
1 B(C(GT,PL),N7-N)=N0:
1 ANY KEY TO START
1 AND is a logical operation. EachBIT of the result will be set ifboth A AND B had that bit set":
1 ADDRESS BUS
1 ADD B means add B to A and put the result in A. If the result is over 255 the carry is set.":
1 ACTION KEY HEADING
1 ACTION KEY 5
1 AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAGAGGGGGGGGGAGGGGGGGGAGGGGAGGGGAAGAGGGGAGGGGGGGGAGGGGGGGGGAAAAAAAGAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAGADDDDDADDDDDDADDDDDDAAAAAAAAAAAGADDDDDDDDADDDDADDDDDDAAAAAAAAAAGADDDDDADDDDDDAAAAAAAAAAAAAAAAAAGADDDDDDDDDFFFFFFFFFFFFFFFFFFFFAGADDDDDDFFFFFFFFFFFFFFFFFFFFFFFFGADDDDDAAAAAAAAAAAAAAAAAAAAAAAFFGADDDDDDAAAAAAAAAAAAAAAAAAAAAAFFGAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAFGAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAGACCCCCCCCAAAAAAAAAAAAAAAAAAAAAAGACCCCCCCAAAAAAAAAAAAAAAAAAAAAAAGACCCCCCAAAAAAAAAAAAAAAAAAAAAAAAGACCCCCCCCCAAAAAAAABBBBBBBFFFFFFGACCCCCCCCAAABBBBBBByyyyyBFFFFFFGAAAAAAAAAAAABBBBBBBBBBAABFFFFFFGAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAGAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAG
1 A$="ROPE":
1 A$="Press any key to continue...":
1 A$="Enter number of stones in each pit at start (3 - 7) ":
1 A$="Do you want the intro. again ?":
1 A$="DRIVE"
1 A$="BADGE":
1 A$=" How many players ? (2, 3 or 4) ":
1 A$=" Slow or Fast update ? ":
1 @`G`F`E`D`C`B`A`@@G@F@E@D@C@B@A@@ G F E D C B A @
1 >H2}\>o2~\
1 ;,,"Time:0";
1 ;'"Play the tape containing your previous game":
1 ;"~BOXES~":
1 ;"un again";
1 ;"un program";
1 ;"tutor1.2"
1 ;"tutor1.1"
1 ;"or ARRAY)"'" 2. Where a BASIC program starts"'" if LINE was used"'" 3. The address at which the"'" bytes are loaded"'" 4. The length of the program"'" or section of code"
1 ;"ntroduction";
1 ;"name: ";
1 ;"microdrive one"
1 ;"icrodrive"
1 ;"header";
1 ;"ead again";
1 ;"colour":
1 ;"by Phil Wood"
1 ;"by C R Gardner";
1 ;"ave program";
1 ;"ape or ";
1 ;"and press RECORD"
1 ;"Zaps:3";
1 ;"Your score is one of the top ten best scores since this programme was loaded. Enter your name (not more than 12 letters) to record your achievement."
1 ;"Your score is ";g$
1 ;"You have failed in your mission."
1 ;"You have completed your mission."
1 ;"You have attained one of today's best times."
1 ;"Wokingham"
1 ;"When the program is running"'"play the tape"''"The header block will be read"''"The bytes are displayed and"'"an explanation is given"''"The program or code is not"'"loaded"
1 ;"Well done ";f$
1 ;"WARI-I":
1 ;"View the Top Ten Y/N"
1 ;"To turn the speaker on the CPU would have to select WRITE and input/output on the control bus.Put the speaker port address on the address bus and then a high voltage on the fourth line of the data bus."::
1 ;"To tell the computer which boxes to close enter the number when prompted by the computer. i.e. To close boxes 9 & 2 enter 92 or 29. To close boxes 8,2 & 1 enter 128, 281 or any combination of the three. No punctuation is required when entering the numbers. A maximum of three boxes can be closed at any one time."
1 ;"This program will enable you to see the sort of operations whichthe Z80 can perform on one or two bytes."''"Try out all the operations with a selection of numbers until youfeel that you understand them."''"When you have a grasp of these essential operations you will be ready for chapter 2 and a look at how to program the Z80."
1 ;"This is the first of a series of programs designed to help Spectrum users to learn the mysteries and wonders of machinecode programming.":
1 ;"This game of boxes is based on the ancient game of ~Shut the Box~. Played on a simple board, the object is to cover all the numbers.
1 ;"There have now been ten scores of ~0~. Press ~R~ to cancel them and start again. Press ~N~ to end the game."
1 ;"The system is now ready to work.E.g. to put a dot in the top left corner of the screen the CPU will use the control bus to select memory and WRITE and thenplace 16384 on the ADDRESS BUS and 10000000 on the DATA BUS."'"(In BASIC, POKE 16384,128)":
1 ;"The long way home"
1 ;"The header block contains the"'"following information:"'''" 1. Type of data (BASIC, CODE";
1 ;"The computer will not accept any illegal moves and will roll the dice for you. It also keeps a ~Top Ten~ of the best scores.
1 ;"The Z80 is an 8 BIT processor. This means that it handles one 8 bit BYTE at a time. It READS its data from the voltages on 8 parallel wires called the DATABUS.":
1 ;"The ULA also uses the DATA BUS":
1 ;"The CPU can only communicate with something which behaves like memory."'"The Uncommitted Logic Array(ULA)is Sinclair's device for making external devices look like just another bank of memory.":
1 ;"Tape is verified"
1 ;"TROGLODYTE":
1 ;"TOP TEN":
1 ;"TOP TEN"
1 ;"TAPE HEADER";
1 ;"Start the tape";
1 ;"Start the tape"
1 ;"STOP THE TAPE":
1 ;"START THE TAPE"'
1 ;"Runs at line ";
1 ;"Rewind tape and press PLAY"
1 ;"READER";
1 ;"Press any key to restart":
1 ;"Part 7":
1 ;"PRESS ANY KEY"
1 ;"PRESS ANY KEY TO CONTINUE"
1 ;"PRESS ANY KEY (
1 ;"Next month YAZ returns with D&G":
1 ;"Most of the time it will WRITE or READ bytes of data to or frommemory."'"The memory can hold up to 65536 bytes so the CPU must be able tospecify the address of the byte it wishes to write to or read. 16 BITS are needed to make all binary numbers from 0 to 65535 so the Z80 puts the appropriate voltages onto the 16 lines of the ADDRESS BUS.":
1 ;"M/code programs talk directly tothe Central Processor Unit (CPU)of the computer. In the Spectrumthis is the famous Z80 chip."''"To understand M/code we need to see how the Z80 fits into the Spectrum. That's what this part is all about."
1 ;"Load address ";256
1 ;"Let the tape run to the end of side one (16K machines will not LOAD the machine code part)."'"If you save the game it may"'"only LOAD after CLEAR 32766":
1 ;"Insert cartridge into";
1 ;"Insert blank tape";
1 ;"If this represented a number (itmight represent a dot pattern onthe screen) then it would be-"''"2^7+2^0 = 128+1 = 129"
1 ;"Finally, the CONTROL BUS is usedby the CPU to announce when it is READing or WRITing and whether it is selecting memory or input/output via the ULA."'"The ULA also uses uses the buses50 times per second to read the memory and update the TV signal.":
1 ;"Externally, the CPU just sends and receives bytes of data."'"Inside the CPU, operations can be performed on this data."''"Part 2 will demonstrate the sortof things that the Z80 can do with one or two bytes of data.":
1 ;"EXTRA COMMANDS FOR 48K'ers"
1 ;"Don't worry about the silence between loading the program & machine code"
1 ;"Do you wish to save to";
1 ;"Congratulations !";
1 ;"Close which box(es)?"
1 ;"Chapter 4; Troglodyte"''" Chapter 5; Castle"''" Chapter 6; Colony"''" Chapter 7; Satellite"''" I don't want to know any more":
1 ;"COWBOY":
1 ;"COLONY":
1 ;"CASTLE":
1 ;"Best:";h(1
1 ;"BRIGHT 1"
1 ;"BRIGHT 0";
1 ;"BASIC program":
1 ;"Appendix E (
1 ;"Another game? Enter Y/N"
1 ;"And the ADDRESS BUS ":
1 ;"Advent#7":
1 ;"Advent#7"
1 ;"ANOTHER GAME (y OR n)"
1 ;"A program or section of code"'"is always saved on tape"'"in two parts"''"The first part is a header block"'"of 17 bytes"''"The second part is the program"'"or code"'''"This program will read the"'"header block and tell you what"'"it means"
1 ;"16/48D&G10":
1 ;"16/48D&G10"
1 ;" PLAYER 1";
1 ;" Incorrect addition ":
1 ;" Enter your name using no more than eight characters."
1 ;" ACTION KEYS : 5(
1 ;" Too many numbers ":
1 ;" One Number left "
1 ;" PRESS ANY KEY TO CONTINUE "
1 ;" 4 - Continue with magazine."
1 ;" 3 - Redefine keys.";
1 ;" 2 - Play without trees.";
1 ;" 1 - Play with trees.";
1 ;" Another game (y/n) ? "
1 ;" "
1 ;" ":
1 ;" "
1 ;" "
1 ;" ":
1 9000 ONWARDS IS A SUB- ROUTINE TO PRINT THE NEW COLOURSON THE SCREEN
1 8;888888888888888888888888;8
1 88????????88888888888888
1 8888????????8888888888888888
1 88888888888888888888888888888888?8888888888888888888888888888888
1 88888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888?8888888888888888888888888888888
1 8888888888888888888888888888
1 8888888888888888888888
1 88888888888888888888
1 23635+256*
1 222222((((,,,,,((((((((*22222222222222((((((,,,((((((((*222222
1 222222((((((4((((((((((*22222222222222((((((4((((000000222
1 220000004000000000022222222222222200000040000000000222222222222222000000000000000000000002220000000000000000000000000000022200000000000000000000000000000222000000000000000000000000000002220000000000000000000000000000022200000000000000000000000000000222000000000000000000000000000000000000000000000000000000000000000000000000000000000666666666666666666666666666666660000000000000000000000000000000000000000000000000000000000000000
1 2((((,,,,,((((((((*222222
1 16/48D&G10
1 16/48 script
1 -#>l2}\>Q2~\
1 -#>^2}\>Z2~\
1 - MAIN BODY OF PROGRAM
1 ,o;" ADVENTURE HELP FROM Baz. "
1 ,i;"Press
1 ,,"Left -",,"Down -",,"Up -",,"Right-",,"Jump -",,"Zap -"
1 *m:
1 *Iv:Gvw#:Hvw#"Iv
1 *** 4 PLAYER GAME ***
1 *** 3 PLAYER BOARD ***
1 *** 2 PLAYER BOARD ***
1 *(B(PA1,PA2)>9
1 )="The cool":
1 )="Superman":
1 )="Mr. Ace":
1 )="Macho":
1 );a$;",";:
1 );"bytes long"
1 );" bytes long":
1 );" bytes long"
1 );" ";B(PA1,PA2)
1 ) 8(
1 ) "
1 (prog+1217
1 (buffer+n):
1 (buffer+16
1 (buffer+15
1 (T(N2)=T(N1)
1 (4 X NORMAL SIZE)
1 ((prog+474
1 (((((((((((((((((((((((((((((((((((((((((((((((((((((((((,(((((((((((((((((((((((((((((((,,,,,((((((((***************((((,,,,,((((((((*22222222222222((((,,,,,((((((((*2
1 '''"Wari is perhaps the oldest game in the world."'''"It is known to have been played in Egypt more than 3000 years ago, and it is still played"'"all over Africa and in the West Indies."
1 '''"Now Verify...":
1 '''" HOW TO PLAY"
1 ''"There are very many regional"'"forms of the game and it is"'"implemented here in 2, 3 and 4 player versions."'"If you wish to change the rules,feel free, the program structureshould make it easy to build in new variations."
1 ''"The rules for the 3 & 4 player games are identical - except"'"that in the 3 player game, the stones are captured in an anti- clockwise direction since there is (obviously) no opposite side of the board."''"If this sounds very complicated,don't worry - it's easy when youstart playing... honest!"
1 ''"Do you want a print out of theseinstructions ? (y/n)"
1 ''"48K'ers still get hi-res instantgraphics, but note, there are a few more commands."
1 ''" THE BOARD"
1 ''" (also known as Mancala)"
1 '"The game ends when all 6 pits onone side of the board are empty.The winner is the player who hasmost stones in all their pits, (not just the scoring-pit!)."
1 '"The 2 player board consists of 14 ""pits""."''"Those at each end are called the""scoring-pits""."''"At the start of the game stones,(counters), are placed in each of the 6 pits along each side, the number of stones depending on the skill of the players."
1 '"SAVE to Tape or Microdrive"'"(t
1 '"More about BYTES in part 2. Now let's look at how the Z80 fits into the Spectrum."
1 '"Just remember that in an 8 Bit BYTE, Bit 7 is the Most Signifi-cant Bit (msb) and BIT 0 is the Least Significant Bit (lsb)."
1 '"It can also WRITE data onto the bus by connecting a high or low voltage to each line. Externallyit can do very little else.":
1 '"If you get stuck, EXAMINE"'"everything mentioned by the"'"computer, or, type HELP."
1 '"If the last stone lands in the player's own scoring-pit, they get another turn."
1 '"If the last stone lands in an"'"empty pit on the player's side of the board then that stone"'"together with all of the stones in the corresponding pit on the opposite side of the board are"'"placed in the player's"'"scoring-pit."
1 '"Enter (capital) ""Q"" to quit at any time."
1 '"Each player in turn selects one of their pits from which all thestones are removed and placed, one in each pit,around the boardin an anti-clockwise direction."
1 '"Do you want to read these again?"'"(y/n)"
1 '"Do you want to load a previous game ?"
1 '"Do not be deceived into thinkingthat WARI is a simple game, it has been established a LONG timeand the strategies for winning can be complex."
1 $>n2}\>_2~\
1 $>l2}\>O2~\
1 $>g2}\>h2~\
1 $>g2}\>e2~\
1 $>g2}\>c2~\
1 $>g2}\>S2~\
1 $>g2}\>H2~\
1 $>`2}\>l2~\
1 $>`2}\>X2~\
1 $>`2}\>B2~\
1 $>W2}\>h2~\
1 $>V2}\>}2~\
1 $>P2}\>v2~\
1 $>H2}\>12~\
1 #p;'"Use short sentences where"'"possible."'
1 #p;"WHAT CAN I SEE - This reminds you of where visible exits are"'("and shows you a picture."
1 #p;"SAVE GAME - This will SAVE &
1 #p''"Welcome back..."'"Last month you escaped (I hope) from a deserted space colony."'"The year was 4816, the year in which the game started. This means that you are NEARLY home !"
1 #p''"This month you materialize in a detention dome of a well known satellite."''"You have got to find your way"'"out into the next (final)"'"episode."
1 #p''"Regular adventurers may notice that the format has changed"'"slightly this month, so don't forget to read the instructions."
1 #p'"You tell the computer what you want to do by typing in ENGLISH.(Then pressing enter)"
1 #p'"Some corridors in the game are curved, so if you leave a"'"location by going west you may not be able to get back by goingeast."
1 #p'"N = GO NORTH"'"S =GO SOUTH ...etc"'"INSTRUCTIONS - gives you these instructions again."'"H = HELP"'"I = INVENTORY (What have I got.)"'"V = VIEW (What can I see.)"
1 #p'"HELP - The computer may give youadvice."'
1 #p'"GO NORTH, SOUTH, EAST...etc."'"EXAMINE THE ..."'"TAKE THE ..."'"GET THE..."'"DROP THE ..."'"WHAT HAVE I GOT WITH ME ?"
1 #p'"Don't forget to draw a map"'"wherever you go."'"To help you with this it is"'"worth dropping objects so that you know where you are when you find them again."
1 #p'"Certain single words can be usedas commands. These are:"
1 #p'"Being captured is not always theend of the game."
1 #p'"Avoid giving more than one"'"instrucion per sentence."
1 "tutor1.2"
1 "tutor1.1"
1 "Your name :";f$
1 "You see a ladder going to the shuttle":
1 "You need the spade HERE !"'"You are stuck, you slowly"'"suffocate.":
1 "You materialize."'':
1 "You have..":
1 "You find a thin layer of metal":
1 "You drive EAST":
1 "You do not have it.":
1 "You cannot, nothing happens.":
1 "You cannot go ";a$:
1 "You cannot PILOT the shuttle"'"without help.":
1 "You can't drive it with the door closed":
1 "You can drive":
1 "You are on the surface of the"'"moon":
1 "You are on the moon.To the east there is a door in the surface to the south there is a moon shuttle.":
1 "You are in the control room."'y$;"the captain's identity"'"badge.":
1 "You are in a very large Museum. You can see where man first set foot in the moon. The area has arope around it.":
1 "You are in a transparent dome. The FLOOR is sandy. There are noexits visible.":
1 "You are in a large room."'("A maintenance robot mends the roof & goes away"
1 "You are in a large airlock"'y$;"a moon buggy."'"There are two sets of doors one plastic the other metal.":
1 "You are in a Transparent viewingdome.":
1 "You are carrying too much.":
1 "You are at a junction between corridors":
1 "Where ?":
1 "What are you going to do ?"'"
1 "Use one of the following words in your sentences;"'':
1 "Try examining things":
1 "There is a plastic door to the east."'("The door is closed"
1 "There are exits visible;"'("North "
1 "The robot pilot appears. It says~I am ready to pilot the shuttleCaptain.~":
1 "The pilot stays with you."
1 "The door is not locked":
1 "The air rushes out & the exit below is sealed.":
1 "Put cartridge in drive 1":
1 "One dice or two? ";l
1 "Nothing happens.":
1 "Make sure that your map is"'"accurate.":
1 "Long Way#7"
1 "LOOK","NORTH","SOUTH","EAST","WEST","DOWN","CLIMB","UP","EXAMINE","SEE","TAKE","GET","DROP","OPEN","CLOSE","HELP","PUSH","DIG","BREAK","DRIVE","WEAR","GOT","SAVE GAME","QUIT"
1 "It is very old but it seems to be in working order."'"The air tanks are full.":
1 "If the computer can't understandyou it will suggest a few words to help you."'"It will not tell you every word that it knows as this would"'"spoil the game."
1 "INSTRUCTION"
1 "I did not understand that !":
1 "FLINT","STRAW","BOTTLE","SPADE","CREDIT CARD","BATTERY","PACK OF CARDS","MAGAZINE","SPACESUIT","","BADGE"
1 "Enter 1-9 :";q$
1 "ENTER A NUMBER (0
1 "Do you want to save this programon tape or microdrive? (y/n)"
1 "Dig the view up there !":
1 "As soon as you get in the ship it takes off"'"Is the Robot taking you home ?"''"Write down this entry code &"'"find out next month"''t$
1 "An alarm sounds.":
1 "All the air rushes out.You are killed":
1 "Above your head you see the"'"EARTH.":
1 "A robot pilot appears. It says ~You are not the captain, you"'"are not authorized to be here.~ It leaves.":
1 "A Robot guard appears. It takes every thing that you are"'"carrying and drags you into the detention dome.":
1 "99")-(T(X)>N9);" ";T(X):
1 "9";" "''
1 "8000"+JUMP
1 "8",i;"Press keys 1-5 for help":
1 "8")-N1*(T(X)>
1 "8"),X(GT,X,
1 "64"-N6*(PL-N1)
1 "6";" W A R I ";
1 "6";" ":
1 "6";"
1 "42567",hb:
1 "42566",lb:
1 "3";"Stuck in the cell ?"''" Chimney keeps disappearing"''" Troubled by a hungry Gryphon"''" Maid's door is locked"''" Drawbridge is stuck"''"
1 "3";"Keep getting killed by wolves"''" Caves are too dark"''" Fire will not light"''" The chief will not let go of transducer"'" Can't find Trans-mat"''"
1 "3";"Can't kill predator"''" Why is the receiver on a"'"platform"'" always fall down stairs"''" Get run over by train"''" Train crashes"''"
1 "26";T(N2)
1 "26";"by DD"
1 "23658",o:
1 "20";Q*N6;"
1 "2";"STONES";
1 "17"-N2*X,
1 "16/48D&G10"
1 "14")="T":
1 "14")="D":
1 "13")="g":
1 "12",N4;T(N1);
1 "12")="s":
1 "11",i;"1"''"
1 "11")="g":
1 "10")="0":
1 "1","128","3","192","7","224","15","240","31","248","63","252","127","254","255","255"
1 "'"QUIT - This restarts the game."
1 to read again.";
1 to quit)"
1 to load Something else."
1 g=graphic pattern(1 2 or 3)
1 YOU HAVE WON A NICE PRIZE BUT ON THE TURN OF THE NEXT CARD YOU CAN WIN A BETTER ONE
1 XOR WITH B
1 WO = WORDS
1 WASHING MACHINE
1 Update Display
1 USEFUL PHRASES
1 SUBTRACT B
1 START THE TAPE
1 SHIFT RIGHT
1 SHIFT LEFT
1 ROTATE RIGHT
1 ROTATE LEFT
1 PRESS ANY KEY (B back, Q quit)
1 PLAYER 1 PLAYER 3
1 OR WITH B ";#1
1 Next Player
1 Main Loop
1 INSTRUCTIONS
1 INCREMENT
1 How many players ? (2, 3 or 4) |
1 Get players move
1 Get Move
1 General Prompt
1 ENTER NEW B
1 ENTER NEW A
1 Draw - Another Game ?
1 DECREMENT
1 COMPLIMENT
1 COMPARE WITH B
1 COMMANDS "
1 COLOUR TELEVISION STEREO
1 Another Turn
1 AND WITH B
1 ?8888888888888888888888888888888
1 2nd WORD ETC (GO2)
1 Take care! Your final score is the sequence of numbers left uncovered and not their total."
1 SUBROUTINES
1 Numbers can only be covered if they add up to the total of the two dice. e.g. With a score of eleven, boxes 9 & 2 or 8, 1 & 2 etc could be closed."
1 ";Q;" r"
1 ";Q;" q"
1 ";Q;" o"
1 ";Q;" n"
1 ";Q;" ";Q;" ";Q;" ";Q;" ";Q;" ";Q;" 0 "
1 g h i j k l "
1 SELECT OPERATION (Q quits)"
1 PLAYER ONE PLAYER TWO
1 0 ";Q;" ";Q;" ";Q;" ";Q;" ";Q;" ";Q;"
1 ";Q;" ";Q;" ";Q;" ";Q;" ";Q;" ";Q;" 0 ";
1 PLAYER 3"
1 ";Q*N6;
1 SYMBOL
1 SHIFT
1 PLAYER 2
1 PLAYER 4
1 ";Q*N6;"
1 x w v u t s
1 COWBOY SHOOT UP
1 M
1 L
1 CONTROLS
1 ";
1 ";
1 The object of this game (set inthe wild west) is to shoot your opponent six times. There are other objects on the screen likehouses, cacti ect. all of which can be shot away.
1 Z
1 X
1 A
1
1
1
1
1
1
1
1
1
1
1
1